GFORTRAN module created from hamiltonians.f on Wed Oct  3 22:09:12 2012
If you edit this, you'll get what you deserve.

(() () () () () () () () () () () () () () () () () () () () ())

()

()

()

()

(2 'build_sx' 'hamiltonians' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL SUBROUTINE) (UNKNOWN 0 ()) 3 0 (4 5) () 0 () ())
6 'build_sd' 'hamiltonians' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL SUBROUTINE) (UNKNOWN 0 ()) 7 0 (8 9) () 0 () ())
10 'gaussian' 'hamiltonians' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL FUNCTION) (REAL 8 ()) 11 0 (12 13 14 15) () 10 () ())
16 'hamiltonians' 'hamiltonians' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (UNKNOWN 0 ()) 0 0 () () 0 () ())
17 'build_sz' 'hamiltonians' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL SUBROUTINE) (UNKNOWN 0 ()) 18 0 (19 20) () 0 () ())
21 'build_sy' 'hamiltonians' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL SUBROUTINE) (UNKNOWN 0 ()) 22 0 (23 24) () 0 () ())
25 'bfield' 'hamiltonians' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 26 0 (27 28 29 30 31 32 33) () 0 () ())
34 'lorentzian' 'hamiltonians' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL FUNCTION) (REAL 8 ()) 35 0 (36 37 38 39) () 34 () ())
4 'o' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (REAL 8 ()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
VARIABLE (INTEGER 4 ()) 0 5 ()) (CONSTANT (INTEGER 4 ()) 0 '1') (
VARIABLE (INTEGER 4 ()) 0 5 ())) 0 () ())
5 'n' '' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
INTEGER 4 ()) 0 0 () () 0 () ())
23 'o' '' 22 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (REAL 8 ()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
VARIABLE (INTEGER 4 ()) 0 24 ()) (CONSTANT (INTEGER 4 ()) 0 '1') (
VARIABLE (INTEGER 4 ()) 0 24 ())) 0 () ())
19 'o' '' 18 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (REAL 8 ()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
VARIABLE (INTEGER 4 ()) 0 20 ()) (CONSTANT (INTEGER 4 ()) 0 '1') (
VARIABLE (INTEGER 4 ()) 0 20 ())) 0 () ())
24 'n' '' 22 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
INTEGER 4 ()) 0 0 () () 0 () ())
20 'n' '' 18 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
INTEGER 4 ()) 0 0 () () 0 () ())
9 'n' '' 7 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
INTEGER 4 ()) 0 0 () () 0 () ())
27 'o' '' 26 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (REAL 8 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
CONSTANT (INTEGER 4 ()) 0 '3')) 0 () ())
29 'xyz' '' 26 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (REAL 8 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
CONSTANT (INTEGER 4 ()) 0 '3')) 0 () ())
28 'b0' '' 26 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
30 'f' '' 26 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
33 't' '' 26 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
37 'c' '' 35 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
36 'i' '' 35 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
38 'w' '' 35 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
32 'a' '' 26 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
12 'i' '' 11 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
15 'x' '' 11 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
14 'w' '' 11 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
13 'c' '' 11 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
39 'x' '' 35 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
31 'phi' '' 26 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
8 'o' '' 7 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (REAL 8 ()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
VARIABLE (INTEGER 4 ()) 0 9 ()) (CONSTANT (INTEGER 4 ()) 0 '1') (
VARIABLE (INTEGER 4 ()) 0 9 ())) 0 () ())
)

('lorentzian' 0 34 'bfield' 0 25 'build_sy' 0 21 'build_sd' 0 6 'build_sx'
0 2 'build_sz' 0 17 'hamiltonians' 0 16 'gaussian' 0 10)
